FileSize

Otázka od: JSDELPHI

2. 9. 2002 1:09

Mam nasledujici problem. Nedokazi zjistit skutecnou velikost souboru napr.
6GB. Nepomohlo ani JCL. Prosim o radu.

Jan Skopovy

Odpovedá: Petr Vones

2. 9. 2002 0:18

From: "JSDELPHI" <jsdelphi@atlas.cz>
> Mam nasledujici problem. Nedokazi zjistit skutecnou velikost souboru napr.
> 6GB. Nepomohlo ani JCL. Prosim o radu.

JclFileUtils - funkce GetSizeOfFile

Petr Vones

Odpovedá: JSDELPHI

2. 9. 2002 8:21

Diky, ale to mi vraci chybnou hodnotu. Vysledek ve skutecnosti neni Int64.
Podle napovedy je totiz vysledek shl typu Integer, coz je asi problem
navrhovane funkce.

V pripade ze je FindData.nFileSizeHigh > 0 tak pricitam 2 na
(31+FindData.nFileSizeHigh), tak to funguje.

Jan Skopovy

> > Mam nasledujici problem. Nedokazi zjistit skutecnou velikost souboru
napr.
> > 6GB. Nepomohlo ani JCL. Prosim o radu.
>
> JclFileUtils - funkce GetSizeOfFile
>
> Petr Vones
>

Odpovedá: ing. Jan Fiala

2. 9. 2002 11:37

A zkousel jsi API funkci GetFileSize() ?

--
ing. Jan Fiala
mailto:jan.fiala@iol.cz

2.9.2002 JSDELPHI:
> Diky, ale to mi vraci chybnou hodnotu. Vysledek ve skutecnosti neni Int64.
> Podle napovedy je totiz vysledek shl typu Integer, coz je asi problem
> navrhovane funkce.

> V pripade ze je FindData.nFileSizeHigh > 0 tak pricitam 2 na
> (31+FindData.nFileSizeHigh), tak to funguje.

> Jan Skopovy

Odpovedá: Petr Vones

2. 9. 2002 12:42

From: "JSDELPHI" <jsdelphi@atlas.cz>
> Diky, ale to mi vraci chybnou hodnotu. Vysledek ve skutecnosti neni Int64.
> Podle napovedy je totiz vysledek shl typu Integer, coz je asi problem
> navrhovane funkce.

Diky, mas pravdu. Je to opravene, stejna chyba byla i v GetDirectorySize.

Petr Vones

Odpovedá: Lauko Stefan

2. 9. 2002 15:26

Ahoj chcel som ti poradit FindFirst ale ani to asi nebude fungovat lebo uz z
typu TSearchRec je to jasna chyba.

{ Search record used by FindFirst, FindNext, and FindClose }

  TSearchRec = record
    Time: Integer;
    Size: Integer; ********* malo by byt Int64***********
    Attr: Integer;
    Name: TFileName;
    ExcludeAttr: Integer;
{$IFDEF MSWINDOWS}
    FindHandle: THandle platform;
    FindData: TWin32FindData platform;
{$ENDIF}
{$IFDEF LINUX}
    Mode: mode_t platform;
    FindHandle: Pointer platform;
    PathOnly: String platform;
    Pattern: String platform;
{$ENDIF}
  end;
Lauko.
----- Original Message -----
From: "JSDELPHI" <jsdelphi@atlas.cz>
> Mam nasledujici problem. Nedokazi zjistit skutecnou velikost souboru napr.
> 6GB. Nepomohlo ani JCL. Prosim o radu.
> Jan Skopovy

Odpovedá: Delphin

2. 9. 2002 16:26

> Ahoj chcel som ti poradit FindFirst ale ani to asi nebude fungovat lebo uz
z
> typu TSearchRec je to jasna chyba.

SearchRec.FindData.nFileSizeHigh a SearchRec.FindData.nFileSizeLow fungovat
bude.